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COPYRIGHT | (c) 1978, 1980, 1982, 1984 B 
ITAL PHENT CORPORATION, ” MAYNARD. MASSACHUSETTS. 


ALL RIGHT 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ogh 

IN ACCORDANCE WITH SUCH LICENSE AND WITH THE 
USION OF ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR HER 
ES THEREOF M OT B VIDED OR OT ISE MADE AVAILABLE TO ANY 
TRAHISPERRED . TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION. BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY 
THIS MODULE WILL BE DISTRIBUTED WITH VAX/VMS UNDER THE UETP UIC. 


ABSTRACT 


L TEST RESU. Y IN 
wit HAPPENS WHEN THE USER OF THE U 


SO CAN BY USED BY THOSE WHO SUBMIT THE SYSTEM SERVICE 
ND ee LE AFTER THE BATCH STREAM HAS 
DEF /GR SYSTSTSABORT YES 
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ENVIRONMENT: 
THE MODULE WILL RUN IN USER ACCESS MODE, WITH INTERRUPTS ENABLED 


AUTHOR: DICK BATOR, CREATION DATE: 31-JAN-78 
MODIFIED BY: 
T. CAFARELLA (1-FEB-78) TO CHANGE TRNBUFF TO A 
STRING DESCRIPTOR, 
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SATSUT12 UTILITY TO TELL SYSTST WHEN TO ABORT 16=SEP=1984 01:08:49 VAX/VMS Macro V04- Page 
v04=000 BrSee 188s Bassece PORCHES Bache VOR=OO anes Page 8, 
0000 59 .PSECT SATSUT12,RD,WRT,EXE,LONG 
FRR AAE AKER ATE AE AAA AAEARARREKEEREEAKEAREAEE EES 
e} ; DATA AREA 
MARAARAAARALALELALLALLALASLESSASASLAE ESE ESAS L SEES. 
6 SSLOGNAM: STRING I,<SYSTSTSABORT> : LOGICAL NAME TO USE 
00000000 64 TRNLEN: .LON 
18 65 TRNBUFF: STRING 0,30 ; BUFFER FOR EQUIV STRING 
E 89 ; 
$ E o8 3 
E 8 3 
O3E 0 LIST 
0000 00 : 71 SENTRY SATSUT12,0 ; MAIN ENTRY 
04 72 STRNLOG_S SSLOGNAM, TRNLEN, TRNBUFF,,,45 ; SEARCH GROUP TABLE ONLY 
05 oD 49 PUSHL #5 
00 DD 004 PUSHL # 
00 DD 0044 PUSHL 
CF AF 7F 0046 PUSHAQ TRNBUFF 
CB AF 3F 0049 PUSHAW TRNLEN 
B1 AF 7F 004C¢ PUSHAQ SSLOGNAM 
00000000 ' GF 06 FB OO4F CALLS #6,G*SYSSTRNLOG 
050 €9 0056 £73 BLBC = RO, 208 ; R? 
00000000'8F 50 D1 0059 7% CMPL = RO. #SS$_NOTRAN : CANT HANDLE THIS CASE, EXIT 
17 13 0060 23= 75 BEQL 
59 8F BB AF 91 006¢ i: CMPB = TRNBUFF +8, #*A/Y/ : UPPER CASE Y? 
07 13 006 7 BEQL 
79 8F B44 AF 91 0069 78 CMPB TRNBUFF +8, #*A/y/ :; lower case 
09 12 sar 3 ‘a BNEQ 208 : BRANCH IF NOT A 'Y' 
52. 10000003 8F D0 007 81 MOVL #*X10000003,R2 : YES, Y=>ABORT. NON PRINT MSG CODE 
07 «11 0077 Be pos BRB 30$ : WITH SEVERITY = I (INFORMATION) 
52. 10000001 8F D0 0079 84 a MOVL #*X10000001,R2 ; NO ABORT. RETURN SUCCESS 
0080 86 SEXIT_S R2 : EXIT WITH STATUS 
52. DD 0080 PUSHL  R2 
00000000'GF 01 FB 0082 a CALLS #1,G*SYSSEXIT 
0089 43=—- 88 .END — SATSUT12 
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Symbol table ~REP-1984 04, 
SSSCHARS = 09 ¢ 

SSSSTRINGS = 00 

SATSUT12 OOOOOSE RG 1 

SS$_NOTRAN etereere 1 

SSLOGNAM 00000000 R 1 

SYSSEXIT eeeerere GX 1 . 
SYSSTRNLOG eeereree GX 1 

TRNBUF F 0000018 R 4 

TRNLEN 0000014 R 1 
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! i_Psect synopsis ; 


PSECT name Allocation PSECT No. Attributes 
00000000 ( > HO 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SaTsuri2” 00000089 ( 139") 1 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00 :00.08 00:00:00.47 
zonnend processing 109 00:00:00. 00:00:04.83 
134 00:00:00.81 Eb SE 
Symbol table sort 9 00:00:00.00 808: BB -O8 
s2 3 00:00:00.32 88:80:08 
Syabot table output 2 B38 :00.01 0:00:00.07 
Psect synopsis output 1 0:00:00.01 i BoD: 
Cross-reference output 0 ae $4 OS 0:00:00.00 
Assembler run totals 319 00:00:01.91 00:00:08.39 


The working set Lim‘t was 1050 pages. 
3010 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 9 non-local and 3 local symbols. 
source Lines were read in Pass 1, producing 14 object records in Pass 2. 
pages of virtual memory were used to define 4 macros. 
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Macro Library name Macros defined 
=$35Ss0uas6: F3ys- 08431 ETP. srt 1 1 
SSN SYSLI ISTARLET. hue: 2 Q 
TOTALS (all Libraries) 4 


66 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSUT12/0BJ=OBJ$:SATSUT12 MSRC$:SATSUT12/UPDATE=(ENHS$: SATSUT12) +EXECMLS$/LIB+SHRLIBS$:UETP/LIB 
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